 Imports System.Windows.Forms
 Public Class PHUHUYNHdto
 Inherits AbstractDto 
 #Region "Các Thuộc Tính" 
 Private _IDPHUHUYNH as System.Int32
 Private _TEN_CHA as System.String
 Private _NGHENGHIEP_CHA as System.String
 Private _SDT_CHA as System.String
 Private _DIACHI_CHA as System.String
 Private _TEN_ME as System.String
 Private _NGHENGHIEP_ME as System.String
 Private _SDT_ME as System.String
 Private _DIACHI_ME as System.String
 Private _NGUOITHAN as System.String
 Private _NGHENGHIE_PNGUOITHAN as System.String
 Private _SDT_NGUOITHAN as System.String
 Private _DIACHI_NGUOITHAN as System.String
 Private _TRANGTHAI as System.Int32
 Private _GHICHU as System.String
 #End Region 
 #Region "Khai báo các phương thức truy xuất" 
 Public Property IDPHUHUYNH() as System.Int32
 Get
 Return _IDPHUHUYNH
 End Get
 Set(ByVal value As System.Int32)
 _IDPHUHUYNH=Value
 End Set
 End Property
 Public Property TEN_CHA() as System.String
 Get
 Return _TEN_CHA
 End Get
 Set(ByVal value As System.String)
 _TEN_CHA=Value
 End Set
 End Property
 Public Property NGHENGHIEP_CHA() as System.String
 Get
 Return _NGHENGHIEP_CHA
 End Get
 Set(ByVal value As System.String)
 _NGHENGHIEP_CHA=Value
 End Set
 End Property
 Public Property SDT_CHA() as System.String
 Get
 Return _SDT_CHA
 End Get
 Set(ByVal value As System.String)
 _SDT_CHA=Value
 End Set
 End Property
 Public Property DIACHI_CHA() as System.String
 Get
 Return _DIACHI_CHA
 End Get
 Set(ByVal value As System.String)
 _DIACHI_CHA=Value
 End Set
 End Property
 Public Property TEN_ME() as System.String
 Get
 Return _TEN_ME
 End Get
 Set(ByVal value As System.String)
 _TEN_ME=Value
 End Set
 End Property
 Public Property NGHENGHIEP_ME() as System.String
 Get
 Return _NGHENGHIEP_ME
 End Get
 Set(ByVal value As System.String)
 _NGHENGHIEP_ME=Value
 End Set
 End Property
 Public Property SDT_ME() as System.String
 Get
 Return _SDT_ME
 End Get
 Set(ByVal value As System.String)
 _SDT_ME=Value
 End Set
 End Property
 Public Property DIACHI_ME() as System.String
 Get
 Return _DIACHI_ME
 End Get
 Set(ByVal value As System.String)
 _DIACHI_ME=Value
 End Set
 End Property
 Public Property NGUOITHAN() as System.String
 Get
 Return _NGUOITHAN
 End Get
 Set(ByVal value As System.String)
 _NGUOITHAN=Value
 End Set
 End Property
 Public Property NGHENGHIE_PNGUOITHAN() as System.String
 Get
 Return _NGHENGHIE_PNGUOITHAN
 End Get
 Set(ByVal value As System.String)
 _NGHENGHIE_PNGUOITHAN=Value
 End Set
 End Property
 Public Property SDT_NGUOITHAN() as System.String
 Get
 Return _SDT_NGUOITHAN
 End Get
 Set(ByVal value As System.String)
 _SDT_NGUOITHAN=Value
 End Set
 End Property
 Public Property DIACHI_NGUOITHAN() as System.String
 Get
 Return _DIACHI_NGUOITHAN
 End Get
 Set(ByVal value As System.String)
 _DIACHI_NGUOITHAN=Value
 End Set
 End Property
 Public Property TRANGTHAI() as System.Int32
 Get
 Return _TRANGTHAI
 End Get
 Set(ByVal value As System.Int32)
 _TRANGTHAI=Value
 End Set
 End Property
 Public Property GHICHU() as System.String
 Get
 Return _GHICHU
 End Get
 Set(ByVal value As System.String)
 _GHICHU=Value
 End Set
 End Property
 #End Region 
 Public Sub New()
IDPHUHUYNH = 0
TEN_CHA = "
NGHENGHIEP_CHA = "
SDT_CHA = "
DIACHI_CHA = "
TEN_ME = "
NGHENGHIEP_ME = "
SDT_ME = "
DIACHI_ME = "
NGUOITHAN = "
NGHENGHIE_PNGUOITHAN = "
SDT_NGUOITHAN = "
DIACHI_NGUOITHAN = "
TRANGTHAI = 0
GHICHU = "
 End Sub
 public Function HoTro(ByVal tencolumn As String) As String
 Select Case Ucase(Convert.ToString(tencolumn))
 Case Ucase("IDPHUHUYNH")
 if IsDBNull(IDPHUHUYNH)=true then 
 return "0"
 end if
 Return Convert.ToString(IDPHUHUYNH)
 Case Ucase("TEN_CHA")
 if IsDBNull(TEN_CHA)=true then 
 return """
 end if
 Return Convert.ToString(TEN_CHA)
 Case Ucase("NGHENGHIEP_CHA")
 if IsDBNull(NGHENGHIEP_CHA)=true then 
 return """
 end if
 Return Convert.ToString(NGHENGHIEP_CHA)
 Case Ucase("SDT_CHA")
 if IsDBNull(SDT_CHA)=true then 
 return """
 end if
 Return Convert.ToString(SDT_CHA)
 Case Ucase("DIACHI_CHA")
 if IsDBNull(DIACHI_CHA)=true then 
 return """
 end if
 Return Convert.ToString(DIACHI_CHA)
 Case Ucase("TEN_ME")
 if IsDBNull(TEN_ME)=true then 
 return """
 end if
 Return Convert.ToString(TEN_ME)
 Case Ucase("NGHENGHIEP_ME")
 if IsDBNull(NGHENGHIEP_ME)=true then 
 return """
 end if
 Return Convert.ToString(NGHENGHIEP_ME)
 Case Ucase("SDT_ME")
 if IsDBNull(SDT_ME)=true then 
 return """
 end if
 Return Convert.ToString(SDT_ME)
 Case Ucase("DIACHI_ME")
 if IsDBNull(DIACHI_ME)=true then 
 return """
 end if
 Return Convert.ToString(DIACHI_ME)
 Case Ucase("NGUOITHAN")
 if IsDBNull(NGUOITHAN)=true then 
 return """
 end if
 Return Convert.ToString(NGUOITHAN)
 Case Ucase("NGHENGHIE_PNGUOITHAN")
 if IsDBNull(NGHENGHIE_PNGUOITHAN)=true then 
 return """
 end if
 Return Convert.ToString(NGHENGHIE_PNGUOITHAN)
 Case Ucase("SDT_NGUOITHAN")
 if IsDBNull(SDT_NGUOITHAN)=true then 
 return """
 end if
 Return Convert.ToString(SDT_NGUOITHAN)
 Case Ucase("DIACHI_NGUOITHAN")
 if IsDBNull(DIACHI_NGUOITHAN)=true then 
 return """
 end if
 Return Convert.ToString(DIACHI_NGUOITHAN)
 Case Ucase("TRANGTHAI")
 if IsDBNull(TRANGTHAI)=true then 
 return "0"
 end if
 Return Convert.ToString(TRANGTHAI)
 Case Ucase("GHICHU")
 if IsDBNull(GHICHU)=true then 
 return """
 end if
 Return Convert.ToString(GHICHU)
 Case Else
 Return ""
 End Select
 End Function
 public function HoTro(ByVal tencolumn As String,Byval value as string,Optional ByVal TT As String = "sua") as string 
 Select Case Ucase(Convert.ToString(tencolumn))
 Case UCase("IDPHUHUYNH")
 If TT = "sua" Then
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If IsNumeric(value) = False Then
 return "Không phải số đề nghị nhập lại"
end if
IDPHUHUYNH=CInt(value)
End if
 Case UCase("TEN_CHA")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
TEN_CHA=Convert.ToString(value)
 Case UCase("NGHENGHIEP_CHA")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
NGHENGHIEP_CHA=Convert.ToString(value)
 Case UCase("SDT_CHA")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
SDT_CHA=Convert.ToString(value)
 Case UCase("DIACHI_CHA")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
DIACHI_CHA=Convert.ToString(value)
 Case UCase("TEN_ME")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
TEN_ME=Convert.ToString(value)
 Case UCase("NGHENGHIEP_ME")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
NGHENGHIEP_ME=Convert.ToString(value)
 Case UCase("SDT_ME")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
SDT_ME=Convert.ToString(value)
 Case UCase("DIACHI_ME")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
DIACHI_ME=Convert.ToString(value)
 Case UCase("NGUOITHAN")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
NGUOITHAN=Convert.ToString(value)
 Case UCase("NGHENGHIE_PNGUOITHAN")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
NGHENGHIE_PNGUOITHAN=Convert.ToString(value)
 Case UCase("SDT_NGUOITHAN")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
SDT_NGUOITHAN=Convert.ToString(value)
 Case UCase("DIACHI_NGUOITHAN")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
DIACHI_NGUOITHAN=Convert.ToString(value)
 Case UCase("TRANGTHAI")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If IsNumeric(value) = False Then
 return "Không phải số đề nghị nhập lại"
end if
TRANGTHAI=CInt(value)
 Case UCase("GHICHU")
 If IsDBNull(value) = true Then
 return "Bạn chưa nhập dữ liệu"
 End if
 If value = ""  Then
 return "Bạn chưa nhập dữ liệu"
 End if
GHICHU=Convert.ToString(value)
 Case Else
 return ""
 End Select
 return ""
 End function
 Public Sub GANgiatri(ByVal Group As Control, Optional ByVal TAG As String = "")
 Dim ValControl As New Control
 For Each ValControl In Group.Controls
 If ValControl.Visible And ValControl.Enabled Then
 If (TAG = "" Or ValControl.Tag = TAG) Then
 Dim str As String = Me.HoTro(UCase(Mid(ValControl.Name, 4)))
 If str <> "" Then
 If TypeOf (ValControl) Is TextBox Or TypeOf (ValControl) Is Label Then
 ValControl.Text = Str
 ElseIf TypeOf (ValControl) Is NumericUpDown Then
 Dim NUD As NumericUpDown = ValControl
 NUD.Value = Str
 ElseIf TypeOf (ValControl) Is DateTimePicker Then
 Dim DTP As DateTimePicker = ValControl
 DTP.Value = Str
 ElseIf TypeOf (ValControl) Is ComboBox Then
 Dim cbo As ComboBox = ValControl
 cbo.SelectedValue = Str
 ElseIf TypeOf (ValControl) Is PictureBox Then
 Dim pic As PictureBox = ValControl
 pic.ImageLocation = Str
 End If
 End If
 End If
 If ValControl.Controls.Count > 0 Then GANgiatri(ValControl, TAG)
 End If
 Next
 End Sub
 Public Sub NHANgiatri(ByVal Group As Control, ByVal ErrorProvider1 As ErrorProvider, Optional ByVal TAG As String = "")
 Dim ValControl As New Control
 Dim loi As String = ""
 For Each ValControl In Group.Controls
 If ValControl.Visible And ValControl.Enabled Then
 If (TAG = "" Or ValControl.Tag = TAG) Then
 If TypeOf (ValControl) Is TextBox Or TypeOf (ValControl) Is Label Then
 loi = Me.HoTro(UCase(Mid(ValControl.Name, 4)), ValControl.Text)
 ElseIf TypeOf (ValControl) Is ComboBox Then
 Dim cbo As ComboBox = ValControl
 loi = Me.HoTro(UCase(Mid(cbo.Name, 4)), cbo.SelectedValue)
 ElseIf TypeOf (ValControl) Is NumericUpDown Then
 Dim NUD As NumericUpDown = ValControl
 loi = Me.HoTro(UCase(Mid(ValControl.Name, 4)), NUD.Value)
 ElseIf TypeOf (ValControl) Is DateTimePicker Then
 Dim dtp As DateTimePicker = ValControl
 loi = Me.HoTro(UCase(Mid(ValControl.Name, 4)), dtp.Value)
 ElseIf TypeOf (ValControl) Is PictureBox Then
 Dim pic As PictureBox = ValControl
 loi = Me.HoTro(UCase(Mid(ValControl.Name, 4)), pic.ImageLocation)
 End If
 If loi <> "" Then
 ValControl.Focus()
 End If
 ErrorProvider1.SetError(ValControl, loi)
 End If
 If ValControl.Controls.Count > 0 Then
 NHANgiatri(ValControl, ErrorProvider1, TAG)
 End If
 End If
 Next
 End Sub
 End class

